BETA BAST C NEWSLETTER No. i= 


ERR H KHAN TERRE HIE HEE EE EEE EHTEL TESTER EEE EET TIE 
SEARCHING FOR SOMETHING WHICH ISN’T 


From time to time I find I want to look for the first byte in a 
memory area which isn’t a zero, or the first character in a 
string which isn’t a space, or perhaps any character greater 
than 127. (One example might be compressing a simple screen, 
when most data will be zeros.) I always think it is a pity that 
I cannot use INSTRING to speed things up. At one time I was 
going to upgrade INSTRING to allow such searches, but it got a 
bit complicated. However, below I provide a simple machine code 
routine that can look through a memory area, comparing each byte 
with a particular value (‘called "comp" in line 48 - this can be 
anything between @ and 255). The POKE in line S@ controls the 
kind of search, which can be for "not equal to comp", “equal to 
comp” (equivalent to a i-character INSTRING), "less than comp", 
or "greater than or equal to comp". By altering the value of 
comp by 1, you can obtain the equivalents of "less than or equal 
to" and "greater than". Lines 18 to 3@ just POKE the code into 
the UDG area and need only be used once. Another location could 
be used as an alternative to USR "a" - the cede is relocatable. 
Lines 68 and 78 determine the length and start address of the 
search - here the search is of AS, but any part of memory could 
be dealt with. The result of calling the machine code (the value 
of USR) is zero if the condition is never satisfied, or it is 
the position in the searched area where the condition was true 
and the search finished, i.e. 1 for the first byte, 2 for the 
second, etc. I will leave you to tailor the routine to 
particular applications and make it more user-friendly! 


16 FOR n=USR "a" TO USR "a"+24 
28 READ a 
POKE n,a 
NEXT n 
3@ DATA 1,6,0,33,8,8,880,89,120,177, 288, i1, 126,35,254,6,@, 
246, 235, 167, 237, Bb, 68, 77, 281 
4@ POKE USR Ma"+is, comp 
5@ POKE USR "a"+16,4@ 
REM 48 for <>, 32 for =, 48 for <, 56 for >= 
6@ DPOKE USR "a"+1,LEN as 
7@ DPOKE USR "a"+4,LENGTH(G, "at") 
8@ PRINT USR USR "a" 


MEER EE EERE KEKE EMRE EK EEE EER KER EE EER ERE EERHER REE ENE EE EE 
POINTER CONTROL 


This is (I think!) the Kempston Mouse Pointer program sent in 
long ago by Garry Rowland, with my modifications to PROC MGUSE 
to allow keyboard rather than mouse control of the pointer. 
Remove lines 1818 and 1@11, and de-REM line 1@15, if you want to 
use a Kempston Mouse. My additions let keys 5-8 move the 
pointer; 1 sets "DRAW", 2 sets "uUNDRAW" and 3 exits the loop. 


i@ LET x1=128,y1=88,b=1 
28 CLS 

KEYWORDS @ 

CSIZE 8 


3@ pointerinit 
4@ DO 
pointeron 
5a DG 
mouse 
LOOP WHILE xi=mx AND yi=my AND b=@ 
68 pointeroff 
78 IF b=2 THEN PLOT GVER 23 mx my 
PLOT GVER 153mx ,my 
80 IF b=1 THEN PLOT GVER 23 mx ,my 
98 LET mx=x1,my=yl 
19@ LOOP UNTIL b=3 
11@ STOP 


19@@ DEF PROC mouse 
1418 LET k=INSTRING(1,"5678123" , INKEYS) 
1911 QN k | 

LET xi=xi-1i 

LET yi=yi-i 

LET yi=yi+i 

LET xl=xi+l 

LET b=1 

LET b=2 

LET b=3 
1915 REM LET xi=IN 64479, yi=IN 4655@03%.468,b=3-AND(3,IN 64223) 
1@26 END PROC 


1930 DEF PROC pointeron 

1846 GET g#,mx,my 

19508 PLOT OVER 23mx,my,”" ALTER " 
19408 PLOT OVER i:mx,my," BLANK " 
1870 END PROC 


198@ DEF PROC pointeroff 
1890 PLOT OVER @: mx ,my,g# 
1108 END PROC 


1110 DEF PROC pointerinit 
1128 RESTORE 1206 
11308 LOCAL a,d,t 
1148 LET a=USR "a" 
1158 FOR L=@ TO i5 
1148 READ d 

POKE atL,d 
11708 NEXT L 
1180 8 mouse 

LET mx=x1,my=yl 

119@ END PROC 


1298 DATA 64,224,248, 248,252, 249,248,88,64,148,144,136,132, 
136,168,998 


Lines 1050 and 196@ contain UDG "A" and UDG °"B", which appear as 
keywords in the listing but, since the program sets KEYWORDS 46, 
appear as UDGs when the program is run. The DATA statement 
defines their shapes as two forms of an arrow pointer. The ideas 
in the listing above could form a useful part of aoé$drawing or 
menu-selection program. 


EMER EERE RER EEE EEE KEENER EREK KE LENE REE EERE EE EERE ER ERE EEE EEE 
FILE ERASER 


This contribution is from Albert F. Olivera (Gibraltar). He 
writes: : 


"When developing programs it is usual to make frequent saves as 
writing progresses. The reult is. a cartridge full of outdated 
versions, and it becomes a boring task eraing files one by one. 
I enclose a short program which should make this chore much 
easier. You will see I have made use of the "catalogue to a 
string” procedure you printed in Newsletter No.9." 


The program reads the cartridge or Opus Discovery disc catalogue 
into c$, and prints it in two columns. Then a FLASHing bar (in 
the original it was BRIGHT, but this didn’t show up on my 
monitor) is moved to each file name in turn by pressing, say, 
ENTER. When you press DELETE, the current name is removed from 
the screen and added to a list of file names to be ERASEd, kept 
in z%. You keep doing this until you are happy (the cursor bar 
will wrap to the top of the catalogue if required) and then 
press STOP. All the files in z# will then be erased, and you can 
go on to another cartridge. Notes: the quotes in lines 8G, 118 
and 14@ should contain 16 spaces. The " STOP "in line 128 must 
be typed as symbol-shift/A. The form of the ERASE command in 
line 188 was originally ERASE "m"si:z#in TO n+9) but I had to 
alter it on my Discovery. 


1@ CLS 
CLEAR # 
2@ PRINT AT 6,103; "ERASER"; 
38 PRINT #@; "INSERT CARTRIDGE" 
PAUSE @ 
INPUT 3 
48 PRINT AT 18,73;"READING CATALOGUE" 
38 cat_to c# 
6@ printcat 
7@ LET file=i,last=(LEN c$-16)/11,o0ldfile=last,z$="" 
B@ DO ; 
PRINT AT INT ((file-1)/2) ,16*#NOT (file-INT (file/2) #2) 
¢ FLASH 13 OVER 13" e 
98 LET oldfile=file 
186 GET at 
114 IF a$=CHRS 12 THEN ; 
LET z2#=zS+c$(filexviit2 TO file#ii+ii) ,c#(file*eiit2 
TO filexiit+ti)=" gi 
printcat 
128 EXIT IF at=" STOP " 
13a LET file=fileti 
IF file>last THEN 
LET file=1 
149 PRINT AT INT ((@ldfile-i)/2) ,1S8#NOT (Coldfile-INT ‘(oldf 
lle/2)*2)3 FLASH @3; OVER 1;”" zs 
158 LOOP 
1466 CLS 
FOR n=1 TO LEN 2% STEF 10 
178 PRINT "ERASING "“sz$in TO n+9) 
18a ERASE z$(n TO n+9) 
1968 NEXT n 
264 PRINT #8; "DONE! HIT ANY KEY" 
PAUSE @ 
RUN 


19@@@ DEF PROC cat_to REF a¥% 

1018 LET ag="" 

1828 DPOKE DPEEK (23631)+15,3973 

1836 DPGEKE 23643 ,LENGTH(G, “at") 

1848 CAT #351 

1956 DPOKE LENGTH(@,"a#")-2,DPEEK (23643) -—LENGTH(@, "a%") 
1668 DPOKE DPEEK (23631) +15,64423 

197@ END PROC 


2@@@ DEF PROC printcat 


2018 CLS 
2828 FOR n=13 TO LEN c#-1@ STEP i1 
2038 PRINT c#i(n TO n+9), 


2048 NEXT nm 

2858 PRINT ‘‘’c# (LEN c$-1 TO LEN c#) 

2668 PRINT #@; "ANY KEY=Cursor; DELETE Unwanted Files; STOP 
Erases" 

2076 END PROC 


HEHE KEKE EE KK EEK EK RREK ENE HEHE EEE RE REE EEE RE EREE EEE ERE EEE EERE EE 
PROCS MAX AND MIN 


These two procedures were sent in by Lars Hult (Goteborg, 
Sweden). PROC MAX find out which of two numeric variables is the 
Greater, and puts that value into the first variable. So in my 
example, "8" is printed. Try it with different values. PROC MIN 
is just the opposite. 


1@ LET fi=5,se=8 
20 max fi,se 
30 PRINT fi 


1@@ DEF PROC max REF a,b 
LET a=(a AND a>b)+(b AND ba) 
END PROC 


110 DEF PROC min REF a,b 
LET a=(a AND a<b)+(b AND ba) 
END PROC 


EEE EE EE TEE ESE EEE EEE HE EEE EEE EE EEE EEE EERE EERE EE 
AN ODD FUNCTION 


Lars also enclosed a PROC ODD to detect odd numbers, but I have 
converted it to a function. It is a pity we cannot use a 
function name like FN odd, as allowed on the SAM Coupe. 


288 DO 
INPUT x 
PRINT x,FN q(t») 
LOOP 


21@ DEF FN qfad=INT (a/2)<>a/2 


The function gives 1, which is equivalent to "true", when the 
number in the brackets is odd. it would allow simplification of 
some programs, such as the file eraser in this. issue, which 
checks for whether a file number is odd or even, so -.that it 
knows which of two columns to print the file name in. 
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MONSTERS AND MAZES 


I wrote a maze-generation program similar to the procedure at 
line 1000 quite a few years ago, using a lot of trial and error 
to make the maze negotiable but not too trivial. Of course, with 
an overhead view most mazes are pretty easy. More recently iI 
added a "monster" in the shape of a "*" to chase the player, in 
the shape of a "0". The player uses the @, S, lL and P keys to 
mave — but this can be easily altered by changing line 419. 


The "maze number” asked for is the start number for RND, and a 
given number always gives the same maze. To simply use the 
previous maze again, press ENTER, and the maze attributes, 
stored in m®, will be instantly replaced. 


The most interesting part of the program to me was controlling 
the monster - it knows where the player is, but it cannot simply 
move towards him or it will be trapped in blind alleys. So a 
list of previous locations of the monster is kept in coded form 
in a string. PROC movem calculates a "desirability" for a move 
in each of 4 possible directions, before making the best move. 
"Desirability" is weighted very heavily towards not walking 
through the maze walls (!) using ATTR to check this, and is also 
weighted to moving towards the player, and avoiding previous 
monster locations. INSTRING searches the string of previous 
locations and the most recent "previous locations", judged by 
their position in the string, are avoided most strongly. cI# f 
do not explain this very well it is because it is some time 
Since I wrote the routine, and I’ve forgotten!) AS can hold data 
for 16@ previcus locations. As each location is visited, its 
data is JOINed to the end of the string, and the first data in 
the string (the oldest) is DELETEd. If a location is visited 
twice, the older entry in the string is set to an odd value so 
that it is not significant anymore (line 72@). 


The monster chases the player until he is "got", and the 
player's score is his survival time. In the first version, line 
71@ did not use BRIGHT i, and a space was printed instead. of a 
full stop. The monster did not leave a trail, and sometimes the 
Player could survive indefinitely. The version listed means that 
this is unlikely to happen, since the monster can cross its own 
trail but the player cannot. 


1@ DO 
28 INPUT "Maze number:”; LINE i¢ 
25 IF i$="" THEN LET m=@ 
ELSE LET m=VAL if 
3@ drawmaze m 
43 Playgame 
3@ kill 
6@ DO 


LOOP UNTIL INKEYS$="" 
76 PAUSE @ 
8@ CLS 
PRINT CSIZE i63;AT 5,23; "SCORE: "ssc 
78 PAUSE @ 
19@@ LOOP 


288 
218 


228 
2358 
248 
258 
268 
278 
286 
278 
362 
316 
328 


480 
418 


428 


430 
668 
618 
628 
638 
549 
658 


666 
670 


68@ 
698 


748 


780 


DEF PROC playgame 
POKE 23658 ,8 
REM lower case 
DIM pt4) 
DIM at (2@6@) 
LET c=8,g=5,h=5,a=11,b=-18, y=a,z=b5,k=@,sc=8 
PRINT AT g,h3 "6" 
PRINT AT a,b3"%" 


LOOP UNTIL k 
END PROC 


DEF PROC movep 
ON INSTRING(1,"lipsq", INKEY#) +i 
END PROC 
LET g=gti,r=h 
LET g=g-1,r=h 
LET r=ht+i,q=q 
LET r=h-1,q=9 
IF ATTR (q,r)=56 THEN 
PRINT AT g,h3" "s3AT g,r3"G" 
LET g=q,h=r 
END PROC 


DEF PROC movem 


LET e=h-b,f=g-a,d=SGN (ABS e-ABS f),s=SGN f,t=SGN e 
LET p(1l)=(ATTR (a,b+1)< 5c) #10084 (t=1) #5-ZeHINSTRING (1, 
a%,CHRS (a+128)+CHRS (b+1))+d¥t 
LET p(2)=(ATTR (ati,b)<>c) #18004 (s=1) *5-2ZeX INSTRING (1, 
a$,CHR? (ati29) +CHRS b)—-d*s 
LET p(S=(ATTR (a, b-1)<>c) *#1008+ (t=—-1) #5-2Z* INSTRING(1, 
a$,CHRS (a+iZB)+CHR (b-1))-det 
LET p(4.=(ATTR (a-1,6)<>c) ¥1000+ (s=—-1) #5-2e INSTRING(1, 
aS ,CHRS (at+i27)+CHRS b)+d*s 
LET mp=p(1) ,d=1 
FOR t=2 TO 4 
IF p(t) >mp THEN LET mp=p(t) ,d=t 
NEXT t 
LET y=a,z=b 
ON d 
LET b=b+1i 
LET a=at+l 
LET b=b-1 
LET a=a-i 
IF SCREENS (a,b)="0" THEN LET k=1 
PRINT BRIGHT 13AT yyz3"."3AT a,b3"%" 
LET t#=CHRS (y+128)+CHRS 2 ,d=INSTRING (1 ,a%,t#) 
IF d THEN LET at(d)=" " 
DELETE a¢(1 TO 2) 
JOIN t$ TO a% 
END PROC 
DEF PROC kill 


PRINT AT y,z3" ” 
FOR n=1 TO 12 
“RINT OVER 13;AT a,b3."*" 
WEEP .@2,8-n 
NEXT n 
END PROC 


1980 DEF PROC drawmaze m 
1619 CLs 
1838 IF m=0 THEN POKE 22528 ,ms 
GO TO 1228 
1940 LOCAL a,5,n,p,r,t,z 
1858 RANDOMIZE m 
1960 LET p=1,a=7,b=p,m=2,n=12 
1678 PRINT PAPER p;STRINGS(32," ") 
19808 FOR r=1 TO 19 


1298 PRINT AT r,@3; PAPER p3;" "3 
1190 DO 
1116 LET z2=RNDMin)+1,t=@ 
1128 DG 
11308 PRINT PAPER ag" "3 
EXIT IF PEEK 23688<=2 
1148 LET t=t+i 
LOOP UNTIL t=z 
115@ PRINT PAPER bz" "35 
11468 LOOP UNTIL PEEK 23686<=2 
1178 PRINT AT r,313; PAPER p3" "5 
118@ LET t=a,a=b,b=t ,t=m,m=n,n=t 


1198 NEXT r 
1288 PRINT PAPER p;STRINGS(32," ") 
1216 LET mS=MEMORYS () (22528 TO 23232) 
1228 END PROC 


Below: One of 65@@@-odd possible mazes, with occupants. (Some 
mazes are unplayable due to the player starting off in an 
isolated pocket of the maze. ) 
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PROPORTIONAL-SPACED TEXT JUSTIFICATIGN 


Several readers have expressed an interest in the program I used 
to print some earlier newsletters using variable-width spaces to 
Give more elegant right-justification. I have delayed = doing 
this, since I wanted to polish the routine a bit (it is called 
TRI for Temporary Right-Justify!) but this is my last chance, 50 
here it is. The first thing to say is that it does not deal with 
proportional-spaced text - it just uses variable-width spaces 
generated by sending bit-image data, as in a screen dump, but 
all blank. Unfortunately, the frequent changes to bit-image mode 
make the program quite siow, which is why I have not used it 
recently, but at least it works on printers like my RX8@ which 
have no genuine proportional-printing mode. (I have received two 
versions of a right-justification precedure which works with 
true proportional text from John Watkins of & Hammond House, 
Tiller Road, London, £14 SPW. His procedures "know" how wide 
each letter is in proportional mode and can either space the 
words further apart to fill each line, or space every character 
more widely. The output looks very good. Unfortunately I cannot 
test the procedures on my non-proportional printer and this 
discouraged me from typing them in! Perhaps John could supply a 
copy to interested readers?) My program is designed to read in 
Tasword III files and print all or part of them, but it could be 
modified to deal with Tasword II files instead. Line 78 sets 
“emphasised” and "left margin @". Line 6@ sets the line length 
to 64. ee 


1@ REM TRJ 
24 CSIZE 4,8 
3@ INPUT "file name?"3n% 
4@ INPUT "first line?"3first 
5@ INPUT “last line?"slast 
68 CLOSE #3 
OPEN #3; "b" 
7@ LPRINT CHRS 27; "E"3CHR# 273; "1"5sCHRS Gs; 
6@ LET LL=64,aS=STRINGS(30,CHRS @) 
970 LET eS=CHRS 139+CHRS 132+CHRS 14G+CHRS 131+CHRS 139 
190 CLOSE #5 
OPEN #53; "m"sisn¢ 
11@ FOR n=1i TO first-i 
INPUT #53; LINE t¢ 
LET js=INKEYS#5 
PRINT t¢ 
NEXT n 
120 FOR n=first TO last 
1308 IF EQF(S) THEN CLOSE #5 
STOP 
148 INPUT #5; LINE t# 
1508 LET j=INKEYS#5 
168 PRINT t¢ 
178 bo 
i8@ IF LEN t#<>LL THEN 
send t$+CHRS 13+CHRS 18 
198 EXIT IF LEN t3< >be 


288 LET p=1 
218 DO UNTIL t$(p)<>" " 
send ” it} 
LET p=p+i 
1_O00P 


228 LET b=p,s=8,e=0 


208 DG 
LET p=INSTRING(p,t#," ") 
248 EXIT IF p=98 
208 LET s=st+i,p=pti 
268 DO UNTIL t#(p)<>" " 
LET p=pt+i,e=etl 
LOOP 
278 LOOP 
230 FOR t=1 TO LEN t$ 
LET e=et(t$itt) >=CHRS 128) 
NEXT t 
298 LET pads=(ste) #46 
306 LET p=b 
318 DO 
328 IF t#(p)=" " THEN 
LET. w=INT (pads/s) 
LET s=s-1,pads=pads—w 
‘send CHRS 27+"K"+CHRS wtCHRS Gtas{ TO w) 
DO 
LET p=p+i 
LOOP UNTIL t#(p)<>" " 
3308 send t#(p) 
348 LET p=pt+i 
LOOP UNTIL p>LEN t$ 
358 send CHR 134CHR# i8 
3606 LGOP UNTIL 1 
378 NEXT n 


38@ CLOSE #5 


390 DEF PROC send c# 
FOR t=1 TO LEN cs 
499 ON INSTRING(1,e%,c#(t))+1 
LPRINT c#(t)3 
LPRINT CHRS 273"4"; 
LPRINT CHR 273"5"s 
LPRINT CHR 273"-—"sCHRE 13 
LPRINT CHR 273:"-—"sCHRS @; 
LPRINT CHR# 273; "E"; 
41@ NEXT t 
END PROC 


PROC SEND checks characters to be sent to the printers; if they 
are found in e%, which contains a list of some of the graphics 
characters used by Tasword to control italics and such, special 
control sequences are sent instead. Normally, this is done by 
Tasword as it prints a document, but here we mist do it 
ourselves. If a character is not a control character, it is just 
LPRINTed. Stream 3 should be OPEN to a "B" type channel. 


With my printer, it takes about 17 seconds to print a line of 
emphasised text with this procedure, or about 15 minutes per 
page! However, if there are some lines which are not supposed to 
be right justified, like program lines, these are detected as 
lines which are shorter than the Line length of 64 and are 
printed in a straight-forward way, which speeds things up. 


EEEK KER EEE EEE REE EERE REHM ERE EEE EEE EERE EERE EERE REE EEREE 
MEMOIRS OF A ROM AUTHOR 


Many of you will know that I wrote the Basic for MGT‘s SAM Coupe 
computer, and I thought perhaps there might be some interest in 
a behind-the-scenes look at how this was done. Well, fairly soon 
after Bruce Gordon described the screen memory iayout of the 
Coupe to me, I got excited by how fast writing data to the 
screen could be, and wrote subroutines for PLOT, DRAW and CIRCLE 
which were quite satisfactorily fast. Since I did not have a 
Coupe, I pretended that 24k of my Spectrum’s memory was the 
Coupe's screen memory and wrote the data to that. Aan 
interrupt—driven routine then copied a given quarter of the 
Coupe data to the Spectrum’s screen where it was visible, in a 
distorted form, as 4-by-1 pixel patterns corresponding to each 
theoretical colour. In November 1988 the first of the current 
generation of Coupe prototypes was fired up. This was built on 
several boards and consisted of 1885 of separate chips. Fitted 
with a Spectrum ROM, it ran my machine-code graphics routines as 
I hoped it would. Thus encouraged, I wrote more graphics 
routines and print routines. RECORD and BLITZ came as 
modifications of routines I had published in the Newsletter to 
allow graphics commands to be recorded and played back, although 
of course they are much faster and more convenient on the Coupe. 


Every few months, I would take the train to Swansea and test 
what I had produced on the prototype, although f£ could not 
actually modify my programs if they didn‘t work, since f 
couldn’t bring my roeomfull of equipment with me. I had hoped 
that by early 1999 I might have a machine of my own, but 
unfortunately the highly skilled labour required to duplicate 
the single prototype just wasn‘t available. MGT was and is 
rather a small company, and unfortunately too many jobs devolved 
to a very small number of people with the required abilities. 


Fairly soon I had problems with memory, because I had used up 
almost all my Spectrum’s RAM with a mini-interpreter (extracted 
from BB), 24K of Coupe screen, and the keywords iI had 
implemented. Fortunately I remembered a Multiface that I had 
modified some years before to act as a 16K switched RAM. This 
could replace the Spectrum ROM and give me 54K of RAM to play 
with. The transition was a bit tricky, because at this stage the 
infant Coupe interpreter was very dependent on Spectrum 
subroutines, and I was also partly using Basic as a debugging 
tool. From time to time nothing would work and I would have toa 
work out why by sheer head-scratching! Another problem was = lack 
of a disc-drive that would work with the system - I had toa 
resort to tape, although assembled code could be sent from my 
CPC via RS2S2 link. 


A big milestone was passed when my floating point calculator was 
able to replace the Spectrum equivalent; another occurred when 
the new expression evaluator, able to deal with a completely new 
variable format, finally worked. Gradually I added new commands 
and functions, taking on more off the job than originally 
intended, because delays with the hardware meant more time was 
available. Finally, on 14th. September 1989, I had a working 
Coupe —- the first one built on areal orinted circuit board. (Boa 
Jangeborg was writing a graphics program on the original 
prototype.? Now I could actually see a display and get. things 
like palette switching and sound and tape output working. 
However, one thing I couldn't get working on either an unadorned 


Coupe or a Spectrum was memory paging; the screen and the Basic 
program and variables were supposed to be paged in and out as 
needed, in the same area as the upper half of the ROM. 
Unfortunately it is not feasible to make a new 32K ROM every i186 
minutes, so my ROM code would have to be tested in RAM. 


I had written code to control paging which looked as though it 
should work, but since virtually every function of the ROM 
depended on untestable bits of program, I was rather concerned! 
It had been evident from the start that what was needed was an 
add-on that contained 32K of RAM which could be made to act like 
the Coupe ROM in terms of paging. There were problems building 
this device, but it was finally working on the 13th. of October. 
By then I was under a lot of pressure, because Christmas was 
approaching, the ROM was nearly full, and the paging required a 
lot of modifications and shuffling of code from one half of the 
ROM to the other. Besides, the DOS bootstrap and Network 
operating code still had to be supplied by MGT and incorporated. 
In late November and early December I worked at MGT in Swansea, 
7 days a week and about 15 hours a day. I lost half a stone and 
developed a nasty rash and a bad temper. Finally the ROM was 
pronounced finished, although there really hadn‘t been as much 
time for checking as anyone would have liked. Subsequently a 
number of bugs appeared, mostly to do with incorrect handling of 
the paging system. These have all been fixed in later ROMs, and 
the plan is to send free replacements to early purchasers of the 
machine. As it happened, less than a thousand machines were sent 
out before Christmas, due to manufacturing problems. This was 
very unfortunate for MGT, who had tried very hard toa satisfy 
their customers, and had virtually the entire workforce toiling 
to build power supplies! Besides, Christmas to the computer 
trade is rather like harvest time for a farmer, and needs to be 
exploited hard because it is a long lean time till the next one! 


Currently I am working on an improved Coupe DOS, which would 
include some Beta Basic features I had to leave out of the ROM 
because of lack of space, like ALTER/REF, SORT, INARRAY, USING, 
etc., aS well as some totally new things. With 256K of RAM in 
the entry-level machine and lots of entry points in the ROM to 
allow commands to be added, I could keep producing new versions 
for a long time, provided the financial aspects were OF. I am 
excited by the possibilities. 
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PART-SCREEN COPY ON THE ZX PRINTER 


This little procedure grew out of some correspondence with a 
Portugese correspondent. To COPY, say, the top 18@ scan lines of 
the screen, use COPI 188. The procedure illustrates a general 
method of "editing" an unchangeable ROM routine - assign it to a 
string using MEMORY, alter it by assigning new character values 
to some parts of it, then call it using LENGTH to find the start 
address. Here most of the ROM COPY routine is used, and a RET 
(CHR# 2@1) is needed at the end. The third position in the 
string normally contains CHR 176, for a 17é-line COPY; this is 
fixed in the ROM, but alterable here. 


1@ DEF PROC copi lines 

28 DEFAULT lines=176 

$8 LET aS=MEMORY$() (3756 TO 3866) +CHRS 281 
4a LET. a#(3)=CHRS lines 

=@ RANDOMIZE USR LENGTHiG, "at") 

6@ END. PROC 


~ 12- 
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MULTIPLE SORTS 


Beta Basic’s SORT command is fairly flexible and fast, but 
sometimes an array has to be SORTed in complicated ways that 
make it hard to apply SORT. For example, suppose an array 
contains strings relating tc books ina library. Gne area of 
each string (a "fielid") would probably contain the author's 
name, making it easy to SORT the books according to author. 
After this, though, you might well want to SORT the books by 
each author according to some other field, such as year of 
publication, or title, while still keeping each author’s work 
together. Jacob Baars of Morenhoven, West Germany, sent a 
procedure to da this. I have modified it a bit, and added some 
lines to demonstrate it in action on an array of 35@ 18-char acter 
strings. Positions 1-8 in each string are reserved for names, 
and positions 9-1@ store numbers - pretend they are dates! 


The program sets up the array randomly to start with, and. then 
asks for the field boundaries for the main SORT. Here you enter 
1 and 8 te sort according to name. Then you have the option to 
sort according to another field - enter 9 and 18. Then you~ can 
just press ENTER to see the final list. 


The second SORT is much slower than the first, because the 
pregram has to look through the array for sublists in which the 
previous field is the same throughout, and then SORT each 
sublist according to the new field. 


186 DIM a%(5@,16) 
20 FOR n=1 TO 358 
38 GON RNDM(5)+1 
LET a¢(n)="SMITH" 
LET a#(n)="JONES" 
LET a$(n)="BROWN" 
LET a#%(n)="GORDGN" 
LET a#(n)="WHITE" 
LET a%(n)="GREEN” 
48 LET atin,? TO )=USINGS ("##" ,RNDM(99) ) 
38 PRINT ain) 
NEXT nm 
66 mul_sort a 
7@ FOR n=1 FO 3@ 
PRINT a%{n) 
NEXT n 


1@@@ DEF PROC mul_sort REF if 
LOCAL cyx,y¥yz. 
field sa,so 
SORT i#() (sa TO so) 
PRINT TAB 163 "sorted!"'" extend sort to more fields( 


PAUSE @ 
EXIT IF SHIFT#(1,INKEY$)<>"¥" 


IF c>i THEN LET sa=bg,so-ed 


1@1@ field bg,ed 
LET x=1 
DO 


LET y=yti 
EXIT IF y> LENGTH(1,"i¢$") 
LOOP UNTIL if(y,sa TO so0)<>i#(x,sa TO so) 


1628 SORT i#(x TO y-1) (bg TO ed) 
LET x=y 
LOOP UNTIL x> LENGTH(1,"i¢") 
LOOP 
END PROC 


1838 DEF PROC field REF beg, REF end 
INPUT "input field boundaries for sort: ";beg,end 
END PROC 
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SPECIAL EFFECTS WITH ALTER 


G. Burtenshaw (Shifnal, Shropshire) has drawn my attention to 
some startling screen effects that can be produced by ALTER. As 
he says, "this could be used as an ‘explosion’ accompanied by 
sound effects, although overexposure could damage your eyes!” 
Try something like this: 


1@ DO 
PAUSE 1 
ALTER PAPER 1 TG PAPER 7 
ALTER PAPER 7 TO PAPER 2 
ALTER PAPER 2 70 PAPER i 
LOOP 


New flickering colours are produced in strange patterns. You can 
also use FLASH and BRIGHT, or alter the position and number of 
PAUSES, to vary the effect. (PAUSE synchronises the program with 
the screen display and keeps patterns ina fixed place.) 


FEI SEE EEE 
TIP - ALTER AND VARIABLE NAMES 


I sometimes type in a program and then notice that the case of 
variable names is semi-random because 1 have been changing in 
and out of Caps Lock while typing in strings. Or I decide that 
the use of a lower-case Lis going to be confused with the 
numeral i in printouts. In such cases I make use of ALTER, which 
does not care what case a searched-for variable name is, but 
replaces with the case you specify. Sos 


ALTER x TO xs ALTER ¥Y TO y 
alters all uses of the variables x and y to lower case, and: 
ALTER L TOL 


alters all uses of the variable L to upper case. 
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MATTERS ARISING 


George Baldwin’s letter in the iast issue asking for details of 
Microdrive Doctor utilities prompted a number of letters. One 
reader recommended M/Drive Doctor 3.@ from FIPEQ Systems, 151 
Millbridge, Dollis Valley Way, Barnet, Herts., another had used 
M-DOC from Seven Stars Publishing, 34 Squirrel Rise, Marlow, 
Bucks, SL7 3PN, another highly recommended RAMDOS UTILITIES from 
Roybot, Rayleigh, Essex (sorry that’s all the address I have). 
Obviously some of these programs may no longer be available. 


Several readers reported that the DATA for the sound procedures 
in issue 14 did not add up to 74691 as it should, and that the 
program crashed. G. Jackson: (Creigiau, Cardiff) impressed me by 
actually working out what caused the "re-sounding crash". Sorry 
about the problem. Gne flaw in my "translate programs to Tasword 
files” routine is that long lines like line 518 on page 4 of 
issue 14 need to be tidied up a bit to indent correctly: in 
doing this I introduced an extra comma between i and & in the 
third row of numbers. The row should read: 217,65,16,254,217 
etc. Some copies of the Newsletter were hand-corrected. 


This is the LAST Newsletter - there will be no more. The 
subscriptions of most readers have expired with this issue, but 
a few people renewed for 6, 9 or even i2 issues after issue 12. 
If you are one of those, and you didn’t get a refund with this 
Newsletter, please write and ask for one! 
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ADVERTS 


GET A FULL INDEX OF CONTENTS OF BB NEWSLETTER, FORMAT, ZX 
COMPUTING (1984-1987) ETC., CHOICE OF FILE FORMATS. 

S.A.E. TO LOU OLIVER, 11 FAIRHILL CRESCENT, PERTH, PH1 iRR FOR 
DETAILS. 


SHARES AND SAVINGS (from Eric Day) 


As so many of us have Shares, Unit Trusts, etc. apart from our 
Savings not forgetting the value of our house, I would like to 
draw Reader ’s attention to the very excellent program compiled 
by Charles Buszard of "Thirteen” Grove Wood Close, Chorleywood, 
Herts, WDS SPU. 


The program automatically selects 48K or 128K mode, ali items 
are easily Entered, Deleted &/or Updated. Share Holdings, 
Savings & the Updated Summary totals can be Printed-Gut on a 
Sinclair ZX, an Alphacom or on a full-sized printer. 


Charles is more than willing to share his program, which is only 
available (at the present time) on Microdrive cartridge. However 
TI would suggest that, out of politeness, a Blank cartridge 
formatted "MISER” plus an extra one for his trouble and a 
72.9"*5" stamped addressed envelope be included. 


Also please let him know the Version cf your Sinclair Interface 
One. (PRINT PEEK 237293; if it gives zero it is version i, 
otherwise it is version 2.) Further, give a general idea of the 
type of Hardware used; TV or Monitor, Printer type serial or 
parallel, Epson compatible etc. a : 
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READERS’ LETTERS 


Dear Dr. Wright, 


I oknow you are involved with the SAM micro. Will it be 
compatible with the Opus Discovery disc-drive? I use the drive 
all the time and have all my files on Qpus discs. 


Alan Rutherford, Farnborough, Hants. 


loam in the same position. I transferred a lat of Newsletter 
programs by saving them to tape and then translating them with 
an extended version of “BTRANS”, the program provided hy MGT toa 
translate Spectrum Basic programs. I also needed tw do a bit of 
fiddling and not all programs were fully translatable. I have 
tried copying the Spectrum ROM to the Caoupe's RAN, and plugging 
in a Discovery via a “twister board”, mhich I theught  eught ta 
work, because the Discovery uses special pserpery tLloecations fer 
comaunicating with the disc drive, rather than ports (mhich 
could conflict mith the Coupe’s ports). Unfortunately, it didn't 
work, and I hesitated to play teo much in case Remy RBachine was 
damaged somehom. Perhaps there mas a connection missing in the 
twister board (it worked with my Hultiface, though). I have 
leaded sectors from Discovery discs using the Coupe's disc drive 
and READ AT, and I think sone utility to read disc files and 
translate them could be written. 


Dear Andy, 


I have a problem reading port 254. Usually (on my old Spectrum 
at least), this port would return 255 for an EAR signal, and 191 
for no signal, yet all. I seem to be able to get is ai constant 
value of 73... I CAN read the port using a small machine code 
routine. 


Antony Legat, Blakedown, Worcs. 


I cauldn‘t duplicate this problem on my machine, but I suggested 
something that Antony Iater reported wnarked. That mas to use IW 
65534 instead of IN 254. It mas just a guess, but I knew that 
the upper byte of a port address goes onto the address Itnes 
during IN, and I knew that some resistors that reduce spurious 
low-voltage signals during IN were omitted in some Spectrums. So 
I thought maybe doing IN with the upper byte all high might be 
more reliable (65534 is FFFEH and 254 is @@FEH}, and it mas. By 
the may, most people think that the 286 has just 256 perts, and 
gt ais true that usually even less than 256 pert addresses are 
recognised by the hardware design of wost Z8@ computers. But if 
the other chippery allows it, the Z8@ can deal with 63536 <input 
and autput ports; some designs even used this ta access e@ach 
byte in the screen via a port address?’ 


Dear Dr. Wright, 


I find long program lines do not indent correctly oan my 
dot-matrix printer when they wrap onta the next line. 


P. Harrison, Bedford 
Try POKEing 37288 (line length for LLISTs3 with, say, 64, se 


that BB gees te a new line before the printer has to. (The 
initial value at this address is 86.) 


Dear Andy, 
Can Beta Basic 3.0 be run on the SAM? 
{Several readers) 


It can if you load a complete copy of the Spectrum ROM from tape 
into the Coupe’s RAM, which is quite easy. (FORMAT magazine has 
published details.) Unfortunately you cannot then easily use the 
disc drive, printer, function keys er superier screen psodes. 
LERM Software, 11 Beaconsfield Close, Whitley Bay, Tyne & Hear, 
NE2ZS PUW (B91I-2533615) publish a utility tape te get round such 
problems for many Spectrum programs, as well as Beta Basic. 
Homever, most BB 3.@ programs translate into SAM Basic quite 
easily (send me a disc and an S.A.E. if you want a modified copy 
of BTRANS to help mith this} and they mill then often run 3 or 4 
times faster, and can look much prettier in the nem graphics 
modes. (Pixel-resolution colour is very addictive/s3 


Dear Andy, 


Devastated to hear of imminent demise of BB Newsletter!... Have 
you considered the effects on the world-wide suicide rate if we 
subscribers are denied our regular fix of BR news!!?? Are you 
thinking of starting a similar newsletter for SAM-Basic or 
leaving that to 8B. Brenchley (editor of FORMAT) perhaps. 
Whatever you decide, MANY thanks for Beta Basic and for the 
hours of please given to me and I’m sure many others. Best of 
luck in all future enterprises. Regards, ; 


Michael Williams, London 


It mas probably pretty self-indulgent of me toa publish the 
above, but it mas representative of quite a few Jletters, and 
brought more tears to my eyes than rmost/ Over the years of 
publication I have received a small mountain of encouraging, 
interesting, friendly, helpful etc. letters from a great bunch 
of readers. This was really the motivation for producing a 
Newsletter in the first place. I am very sorry that this mill be 
the last Newsletter. And I am sorry it has taken such a _ Iong 
time to produce// Unfortunately, for some time nom I have been 
employed on projects for other people where deadlines really 
Ratter and are hard to meet’ The SAM Coupe ROM mas rather 
exceptional, but I am sure the problem mill remain. Not that I 
don't usually love my mork (which makes me unesually fortunate); 
qtois just that it is hard to find any time, even for holidays. 
(Ay wife wasn't too pleased to have to go on her omn lIast years) 
Io prebably should have given up after issue 12, but I was 
persuaded othermise. I mill still be here if yeu are really 
stuck mith some proegramming problem or rant Nemsletter 
back-issues, or have corrupted your only copy of Beta Basic. I 
wish you all the very best/ 
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